home *** CD-ROM | disk | FTP | other *** search
/ Speccy ClassiX 1998 / Speccy ClassiX 98.iso / amiga_system / the_aminet / dev / amos / flight.lha / flight.AMOS / flight.amosSourceCode < prev    next >
AMOS Source Code  |  1995-10-29  |  2KB  |  43 lines
  1. 'preflight check 
  2. Dim PARTS(5) : Dim SURE(3)
  3. PREFLIGHT:
  4. PARPLUS=0
  5. Paper 0 : Cls 
  6. Pen 2 : Centre "Preflight Check"
  7. Locate 5,3 : Print "1- Computer"
  8. Locate 5,4 : Print "2- Thrusters"
  9. Locate 5,5 : Print "3- Controls"
  10. Locate 5,6 : Print "4- Fuel"
  11. Locate 5,7 : Print "5- Robot legs"
  12. Locate 2,9 : Print "Our engineers can ensure workability"
  13. Locate 2,10 : Print "of 3 instruments, choose which ones:"
  14. For I=1 To 3
  15. Locate 5,13 : Print "Item # ";I : Locate 14,13 : Input SURE(I)
  16. Next I
  17. For I=1 To 5
  18. PARTS(I)=Rnd(1)
  19. If I=SURE(1) or I=SURE(2) or I=SURE(3) Then PARTS(I)=1
  20. If PARTS(I)=1 Then PARPLUS=PARPLUS+1
  21. Next I
  22. Locate 5,13 : Print "Initiating Preflight check" : Wait 20
  23. If PARTS(1)=1 Then Locate 19,3 : Pen 5 : Print "Ok"
  24. If PARTS(1)=0 Then Locate 19,3 : Pen 3 : Print "Malfunction"
  25. Wait 20
  26. If PARTS(2)=1 Then Locate 19,4 : Pen 5 : Print "Ok"
  27. If PARTS(2)=0 Then Locate 19,4 : Pen 3 : Print "Malfunction"
  28. Wait 20
  29. If PARTS(3)=1 Then Locate 19,5 : Pen 5 : Print "Ok"
  30. If PARTS(3)=0 Then Locate 19,5 : Pen 3 : Print "Malfunction"
  31. Wait 20
  32. If PARTS(4)=1 Then Locate 19,6 : Pen 5 : Print "Ok"
  33. If PARTS(4)=0 Then Locate 19,6 : Pen 3 : Print "Malfunction"
  34. Wait 20
  35. If PARTS(5)=1 Then Locate 19,7 : Pen 5 : Print "Ok"
  36. If PARTS(5)=0 Then Locate 19,7 : Pen 3 : Print "Malfunction"
  37. Wait 20
  38. Locate 5,13 : Pen 3 : Print "Preflight check completed   "
  39. If PARPLUS=5 Then Locate 5,15 : Print "All systems are go" : Wait Key : End 
  40. If PARPLUS<5 Then Locate 5,15 : Print "System failure, takeoff aborted"
  41. Locate 5,17 : Pen 2 : Print "press a key to restart"
  42. Wait Key 
  43. Goto PREFLIGHT